home *** CD-ROM | disk | FTP | other *** search
/ Publication 4 / Publication_04_19xx_High-Tech_de_Side_B.d64 / mafia - gang.cre (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  56 lines
  1. 0 poke53280,.:poke53281,.:poke808,225
  2. 1 print"[147][155]manipulate-a-gangster          [151]brainbird"
  3. 2 print"[152]1 - make gangster":print"2 - show gangster"
  4. 3 print"3 - scratch gangster":print"4 - dir":print"5 - info"
  5. 4 print"0 - quit[144]"
  6. 5 gosub80:ifasc(q$)<48orasc(q$)>53then5
  7. 6 q=val(q$):q=q+1:onqgoto96,10,20,40,50,60:goto4
  8. 10 print"[147][155]gangster-maker                 [151]brainbird"
  9. 11 input"[152]gangster-nummer ";z$:gosub83
  10. 12 input"name ";gn$:input"waffe";gw$:input"eig. ";ge$:input"preis";p
  11. 13 input"komm.";x$
  12. 14 open1,8,2,"gan"+z$+",s,w"
  13. 15 print#1,gn$:print#1,gw$:print#1,ge$:print#1,p:print#1,x$
  14. 16 close1:z$="0"
  15. 19 gosub80:goto0
  16. 20 print"[147][155]gangster-show                  [151]brainbird"
  17. 21 input"[152]gangster-nummer ";z$:gosub83
  18. 22 open1,8,2,"gan"+z$+",s,r"
  19. 23 input#1,gn$,gw$,ge$,p,x$
  20. 24 close1:z$="0"
  21. 25 print"name :";gn$:print"waffe:";gw$:print"eig. :";ge$:print"preis:";p
  22. 26 print"komm.:";x$
  23. 29 gosub80:goto0
  24. 40 print"[147][155]gangster-scratcher             [151]brainbird"
  25. 41 input"[152]gangster-nummer ";z$:gosub83
  26. 43 open1,8,15,"s:gan"+z$+",s,r"
  27. 44 close1:z$="0"
  28. 49 gosub80:goto0
  29. 50 print"[147][152]":open1,8,0,"$"
  30. 51 get#1,a$,a$
  31. 52 get#1,a$,a$:ifst=64thenclose1:gosub80:goto0
  32. 53 get#1,a$,b$:printasc(a$+chr$(0))+256*asc(b$+chr$(0));
  33. 54 get#1,a$:printa$;:ifa$<>""then54
  34. 55 print:goto52
  35. 60 print"[147][155]info manipulate-a-gangster     [151]brainbird"
  36. 62 print"gangster-designer zu mafia,das spiel.[152]   anwendung:":print"name";
  37. 63 print"...eingabe des namen (klar)":print"waffe..zahl zwischen 0-8."
  38. 64 print"        0=haende,8=handgranaten":print"eig....eigenschaften:sechs";
  39. 65 print"stellige zahl":print"        erste zwei ziffern =l.punkte":print"    ";
  40. 66 print"    zweite zwei ziffern=intelligenz":print"        dritte zwei ziffer";
  41. 67 print"n=brutalitaet":print"preis..was wohl ?":print"komm...kommentar.";
  42. 68 print"darf max zwei zeilen           lang sein.":print"[155]dies ist eine vor";
  43. 69 print"version...kein gemotze!nicht idiotensicher !!!":print"tip:";
  44. 70 print"zuerst einen gangster laden,um einenueberblick zu bekommen..."
  45. 71 print"[152]im editor kein komma<,> sondern <@>.":print"zb:brainbird@das genie";
  46. 72 print" (nur'n beispiel)":print"nur gan-nummern zwischen 1-30!"
  47. 79 gosub80:goto0
  48. 80 getq$:ifq$=""then80
  49. 81 return
  50. 83 z=val(z$):ifz=0then0
  51. 84 return
  52. 96 print"sicher ?":gosub80
  53. 97 ifq$="j"then99
  54. 98 goto0
  55. 99 sys64738
  56.